home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / lou.dxr / 00028.ls < prev    next >
Encoding:
Text File  |  1996-03-22  |  584 b   |  32 lines
  1. on exitFrame
  2.   set i to 2
  3.   set spr to 0
  4.   repeat while i < 14
  5.     if spr = 0 then
  6.       if rollOver(i) then
  7.         set the visible of sprite i to 1
  8.         set spr to 1
  9.       else
  10.         set the visible of sprite i to 0
  11.       end if
  12.     else
  13.       set the visible of sprite i to 0
  14.     end if
  15.     set i to i + 1
  16.   end repeat
  17.   go(the frame)
  18. end
  19.  
  20. on mouseUp
  21.   if rollOver(2) then
  22.     set i to 2
  23.     repeat while i < 14
  24.       set the visible of sprite i to 1
  25.       set i to i + 1
  26.     end repeat
  27.     sound stop 2
  28.     sound playFile 2, "..\som\spotreed.wav"
  29.     go("Ecr4")
  30.   end if
  31. end
  32.